object CommentForm: TCommentForm
  Left = 165
  Top = 271
  Width = 561
  Height = 334
  BorderIcons = [biSystemMenu, biMaximize]
  Caption = 'Comment'
  Color = clBtnFace
  ParentFont = True
  KeyPreview = True
  OldCreateOrder = True
  Scaled = False
  OnClose = FormClose
  OnCreate = FormCreate
  OnKeyDown = CommentTextKeyDown
  OnKeyPress = FormKeyPress
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object ViewPanel: TPanel
    Left = 0
    Top = 0
    Width = 553
    Height = 300
    Align = alClient
    TabOrder = 0
    object CommentText: TRichEdit
      Left = 1
      Top = 1
      Width = 551
      Height = 264
      Align = alClient
      HideSelection = False
      HideScrollBars = False
      Lines.Strings = (
        'Msg')
      MaxLength = 4096
      PlainText = True
      ReadOnly = True
      ScrollBars = ssVertical
      TabOrder = 0
    end
    object Panel1: TPanel
      Left = 1
      Top = 265
      Width = 551
      Height = 34
      Align = alBottom
      TabOrder = 1
      object CloseButt: TButton
        Left = 3
        Top = 5
        Width = 70
        Height = 24
        Caption = 'C&lose'
        TabOrder = 0
        OnClick = CloseButtClick
      end
      object ClearButt: TButton
        Left = 76
        Top = 5
        Width = 70
        Height = 24
        Caption = '&Clear'
        TabOrder = 1
        OnClick = ClearButtClick
      end
      object CorelButton2: TButton
        Left = 149
        Top = 5
        Width = 92
        Height = 24
        Caption = '&Insert From File'
        TabOrder = 2
        OnClick = CorelButton2Click
      end
      object FontButt: TButton
        Left = 244
        Top = 5
        Width = 75
        Height = 24
        Caption = '&Font'
        TabOrder = 3
        OnClick = FontButtClick
      end
      object checkbox1: TCheckBox
        Left = 322
        Top = 8
        Width = 223
        Height = 17
        Caption = 'Fl&oat comments when opening Zip files'
        TabOrder = 4
      end
    end
  end
  object FontDialog: TFontDialog
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    Options = [fdNoStyleSel]
    Left = 8
    Top = 5
  end
  object OpenDialog1: TOpenDialog
    Filter = 'Text files (*.txt; *.diz)|*.txt;*.diz'
    Title = 'Select text file for insertion...'
    Left = 248
    Top = 105
  end
end